home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / fgm6demo.sda / FGM V6 DEMOBOOT (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  5KB  |  73 lines
  1. 0 REM FGMZ
  2. 2 POKE53281,06:POKE53280,14:POKE808,239
  3. 4 B=6797:S$="         ":S$=S$+S$+S$+S$:DF=00:SYSB:POKE198,.:GOTO10
  4. 6 POKE198,.:WAIT198,1:GETA$:RETURN
  5. 8 POKE631,13:POKE632,13:POKE198,2
  6. 10 PRINT"[147]";:POKE4830,DF:SYS4789:K=(PEEK(2)/40)+1:IFK>1THEN14
  7. 12 SYS4692:GOSUB6:A=.:IFA$="Y"THENA=1
  8. 14 ONKGOTO16,18,20,24,24
  9. 16 POKE2,A:SYS6684:END
  10. 18 PRINT"[147][144][145][145]","-[204][207][193][196][201][206][199] [196][207][195][211]-1-[146]":DF=40:GOTO112
  11. 20 PRINT"[147][144][145][145]","-[204][207][193][196][201][206][199] [196][207][195][211]-2-[146]":DF=80:GOTO118
  12. 22 SYS4656:END
  13. 24 SYS58260:END
  14. 26 PL=PEEK(13824):PRINT"[145]"S$:GOTO28
  15. 28 C$="[145]":PRINT"[145][145]";S$:PRINT"[145]      [207][213][212][208][213][212] [212][207] [211][195][210][197][197][206] [207][210] [208][210][201][206][212][197][210]?      "
  16. 30 PRINT,"[208][210][197][211][211] '[198]1' [198][207][210] [211][195][210][197][197][206]":PRINTS$
  17. 32 PRINT,"[145][208][210][197][211][211] '[208]' [198][207][210] [208][210][201][206][212][197][210]":PRINTS$
  18. 34 PRINT,"[145][208][210][197][211][211] '[195]' [212][207] [195][193][206][195][197][204]"
  19. 36 SYSB:GOSUB104:POKE2,.:IFA$="[133]"THENPOKE7015,255:GOTO74
  20. 38 IFA$="P"THENPOKE7015,163:GOTO46
  21. 40 IFA$="C"THEN8
  22. 42 GOTO36
  23. 44 POKE7015,255:GOTO74
  24. 46 PRINT"[145][145][145][145][145][145]"S$:PRINT"[145][145]   [208][210][201][206][212]-[207][213][212] [215][201][204][204] [212][193][203][197] [193][194][207][213][212]";INT(PL/3)"[157] [211][200][197][197][212][211]  [144]"
  25. 48 PRINTS$:PRINT,"[157][145][145][204][197][198][212]/[210][201][199][200][212] [211][201][196][197] [204]/[210]?  [157]";:GOSUB6:IFA$="R"THENPOKE2,40:GOTO54
  26. 50 IFA$="C"THEN8
  27. 52 A$="[204]"
  28. 54 C$="[145]":PRINTA$:PRINT"    [208][210][197][211][211] [210][197][212][213][210][206][146] [215][200][197][206] [210][197][193][196][217] [212][207] [208][210][201][206][212]":PRINTS$
  29. 56 SYSB:GOSUB104:IFA$=CHR$(13)THEN62
  30. 58 IFA$="C"THEN8
  31. 60 GOTO56
  32. 62 OPEN15,4,15:CLOSE15:IFST=.THEN70
  33. 64 SYSB:PRINT"[147]","  [208][210][201][206][212][197][210] [206][207][212] [208][210][197][211][197][206][212]":PRINT,"[208][210][197][211][211] '[208]' [212][207][160][212][210][217] [193][206][217][215][193][217]"
  34. 66 PRINT,"-[193][206][217] [207][212][200][197][210] [203][197][217] [198][207][210] [205][197][206][213]-":GOSUB6:IFA$="P"THEN70
  35. 68 GOTO8
  36. 70 POKE251,22:POKE252,54:PRINT,"[211][200][207][213][204][196] [194][197] [208][210][201][206][212][201][206][199]":OPEN1,4,7:CMD1
  37. 72 FORX=1TOPL:SYS5968:NEXT:PRINT#1:CLOSE1:GOTO8
  38. 74 PRINT"[147][144]";:POKE650,128:POKE251,22:POKE252,54
  39. 76 SYS7004:P=1:P$="[208][193][199][197]":M$="[205][207][210][197]":R$="[144]"
  40. 78 R$="[144]":GOSUB128:GOSUB136:IFA$="S"THENPOKE53281,PEEK(53281)+1AND15
  41. 80 IFA$<>"[133]"THENIFA$<>"[134]"THENIFA$<>""THENIFJ=3THEN78
  42. 82 IFA$=""THEN8
  43. 84 IFP>.THENSYS6864:PRINT"";
  44. 86 IFA$="[133]"ORJ=2THENP=P+1:IFP<PL+1THENSYS7004
  45. 88 IFA$="[134]"ORJ=1THENP=P-1:IFP>0THENSYS6954
  46. 90 IFP=PLTHENSYSB:POKE198,.:GOTO96
  47. 92 IFP=.THEN8
  48. 94 GOTO78
  49. 96 P$="[204][193][211][212][144]":M$="[205][197][206][213][144]":R$="":GOSUB128
  50. 98 GOSUB136:IFA$="[133]"THEN8
  51. 100 IFA$="[134]"THENP$="[208][193][199][197]":M$="[205][207][210][197]":GOTO84
  52. 102 GOTO98
  53. 104 PRINTS$:FORX=.TO50:GETA$:IFA$>""THENPRINT"[145]";:GOTO110
  54. 106 NEXT:PRINT,"[145][208][204][197][193][211][197] [211][197][204][197][195][212][146]"C$:FORX=0TO400
  55. 108 GETA$:IFA$=""THENNEXT:GOTO104
  56. 110 X=999:NEXT:PRINTS$:PRINT"[145]";:RETURN
  57. 112 IFFI=.THENSYS6923:GOSUB126:IFE<19THENFI=1:FA=.
  58. 114 IFFITHEN26
  59. 116 GOTO122
  60. 118 IFFA=.THENSYS6931:GOSUB126:IFE<19THENFA=1:FI=.
  61. 120 IFFATHEN26
  62. 122 PRINTS$:PRINTS$:PRINT"[145][196][201][211][203] [197][210][210][207][210][146]"E;B$;E2;E3:PRINTS$:SYSB
  63. 124 PRINT"     -[208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [204][207][193][196] [205][197][206][213]-":GOSUB6:GOTO8
  64. 126 OPEN15,8,15:INPUT#15,E,B$,E2,E3:PRINT#15,"I0":CLOSE15:RETURN
  65. 128 Q$="":IFP>9THENQ$="[157]"
  66. 130 POKE214,20:PRINT"[144]":PRINT"  "R$"[176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][174]"
  67. 132 PRINT"  "R$"[221] "Q$P$P"[157] [221] [198]1 [198][207][210] "M$" [221] [198]3 [199][207] [194][193][195][203][221]"
  68. 134 PRINT"  "R$"[173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
  69. 136 PRINTTAB(13)"[144][145][145]           ":FORX=0TO60:NEXT:PRINTTAB(13)"[145][198]1 [198][207][210] "M$""
  70. 138 FORX=0TO600:GETA$:J=PEEK(56320)AND3:IFA$>""ORJ<3THENX=999
  71. 140 NEXT:RETURN
  72. 142 REM**
  73.